let average n stm = Float.(of_int (sum_s n stm) /. of_int n)
